home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / to the top (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  73 lines
  1. 4 goto90
  2. 5 pokeb,32:pokec,32:b=int(rnd(1)*10)+7680:c=int(rnd(1)*10)+7691:goto34
  3. 6 bo=0:b=int(rnd(1)*14)*22+7680:c=b+198:g=b+110:return
  4. 7 print"[147][158]  magic wings level!":fort=1to4:pokew,241:fortt=1to200:next:pokew,0
  5. 8 next:i=i+1:return
  6. 9 print"[147]":a=8175:pokev+1,10:ph=2:gosub6:u=u+5:fort=1tou+20:s=int(rnd(1)*452)+7680
  7. 10 pokes,3:pokes+ll,3:pokex,200:pokex,0:next
  8. 11 pokea,2:pokea+ll,5:ifpeek(b+1)=3thenpokew,200:b=b+44
  9. 12 pokeb,5:pokeb+ll,4:d=peek(197):ifpeek(c+1)=3thenpokex,200:c=c+44
  10. 13 ifpeek(g+1)=3thenpokew,135:g=g+44
  11. 14 pokeg,5:pokeg+ll,4:pokec,5:pokec+ll,4:ifd<>64thenpokea,32:ifd=20thena=a-1:
  12. 15 ifa=cora=bora=gthen51
  13. 16 bo=bo+1:ifd=44thena=a+1
  14. 17 pokew,0:pokex,0:ifd=42thena=a-22
  15. 18 ifpeek(a)=3orpeek(a)=5then52
  16. 19 pokec,32:pokeb,32:pokeg,32:c=c+1:b=b+1:g=g+1:ifbo=22thengosub6
  17. 20 ifa<7702then23
  18. 21 goto11
  19. 23 goto75
  20. 24 restore:forpu=1to47:readj:next:forpu=1to15:readj:pokew,j:forii=1to100:next:pokex,j
  21. 25 forii=1to100:next:next:return
  22. 29 print"[147]":poke36869,255:w=36876:pokev,15:pokev+1,14:h=7680:a=8153:b=7680:ph=1:c=7701
  23. 30 u=u+5:fort=1tou:s=int(rnd(1)*386)+7746:pokes,3:pokes+ll,4:pokex,200:pokex,0:next
  24. 31 x=36875:ifi=1thengosub24
  25. 34 ifpeek(c+22)=3thenpokex,135:pokec,32:c=c-2
  26. 35 d=peek(197):ifpeek(b+22)=3thenpokew,135:pokeb,32:b=b+2
  27. 36 pokeb,0:pokeb+22,1:pokec,0:pokec+22,1:ifd<>64thenpokea,32
  28. 37 ifd=20thena=a-1
  29. 38 ifd=44thena=a+1
  30. 39 ifd=42thena=a-22
  31. 40 e=peek(a):ife<2ore=3ora=bora=cora=b+22ora=c+22then51
  32. 41 ifa<7702then59
  33. 42 pokea,2:pokea+ll,5:pokeb,32:pokec,32:b=b+22:c=c+22:pokew,.
  34. 43 pokex,.:ifb>8164then5
  35. 44 goto34
  36. 46 print"[147]congratulations!!!!":print"you have gotten to    level 32!!!!":gosub24
  37. 47 print"get ready....":lw=9:fort=1to1000:next:goto29
  38. 51 iflw=9thenonphgoto29,9,59,75
  39. 52 pokew+1,220:pokew,135:pokea+ll,7:fory=1to15:pokev,y:pokea,42:forz=1to5:next:pokea,214
  40. 53 pokea,42:forz=1to5:next:pokea,214:forz=1to5:next:next
  41. 54 fory=15to0step-1:pokev,y:pokea,42:forz=1to10:next:pokea,214:forz=1to10:next:next
  42. 55 pokev,15:pokew+1,0:pokew,0:poke36879,24:print"[147][144] zapped at stage,";i
  43. 56 ifi>32then46
  44. 57 print"hit[157][157][157]any[157][157][157]key"
  45. 58 poke198,0:wait198,1:i=1:u=30:uu=2:goto29
  46. 59 gosub7:pokex,0:print"[147]";:ph=3:fort=1to500:print"[158] ";:next
  47. 60 kd=135:a=8175:b=7812:c=7769:g=7726:uu=uu+2:fort=1touu:s=int(rnd(1)*22)+7680:pokes,4
  48. 61 pokes+308,4:pokes+308+ll,2:pokes+ll,2:next:f=7900
  49. 63 pokea+ll,5:pokea,2:pokeb,3:pokec,3:pokef,3:pokeg,3:pokeg+3,3:pokew+1,kd:ifa<hthen73
  50. 66 d=peek(197):kd=kd+4:p=a:ifd=20thena=a-1
  51. 67 a=a-22:ifd=44thena=a+1
  52. 69 pokep,32:pokep+ll,7:ifpeek(a)=3orpeek(a)=4then51
  53. 72 pokeb-3,32:pokec-3,32:pokef-6,32:pokeg-3,32:f=f+1:b=b+1:c=c+1:g=g+1:goto63
  54. 73 i=i+1:pokew+1,0:goto9
  55. 75 ph=4:kd=135:gosub7:print"[147]":pokev+1,15:a=8175:fort=1touu*2:s=int(rnd(1)*386)+7680
  56. 76 ss=int(rnd(1)*6)+1:pokes,5:pokes+ll,ss:pokex,200:pokex,0:next
  57. 78 pokea,2:pokea+ll,5:pokew+1,kd:kd=kd+4:d=peek(197)
  58. 79 p=a:ifd=20thena=a-1
  59. 80 a=a-22:ifd=44thena=a+1
  60. 81 pokep,32:ifpeek(a)=5then51
  61. 82 ifa<hthen84
  62. 83 goto78
  63. 84 pokew+1,0:i=i+1:goto29
  64. 90 poke52,28:poke56,28:clr:fori=7168to7679:pokei,peek(i+25600):next:forh=7168to7216
  65. 91 readj:pokeh,j:next:poke36869,255:print"[147][144]b[157]to[157][157]the[157][157][157]top!"
  66. 92 print"[156]    by kevin dewey":print"[144]hit[157][157][157]any[157][157][157]key"
  67. 93 v=36878:poke198,0:wait198,1
  68. 94 u=30:uu=2:ll=30720:i=1:goto29
  69. 95 data24,60,126,255,219,219,255,102,255,219,219,227,126,60,36,102,255,86,126,16,56,124
  70. 96 data40,108,255,219,219,255,165,189,129,255,127,8,127,93,93,127,20,34,126,219,126
  71. 97 data24,255,153,60,102,0
  72. 98 data200,140,145,150,140,150,180,140,130,200,210,190,150,140,0
  73.